home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / util / misc / HTML-Creator.lha / HTML-Creator / Source / Dateigröße < prev    next >
Encoding:
Text File  |  1999-07-12  |  1.7 KB  |  81 lines
  1. x%=1:y%=x%:lan%=-1
  2. DIM text0$(1),text1$(1):ver$="$VER: Part of HTML-Creator V1.24"
  3. text0$(0)="Dateien benötigen zusammen "
  4. text0$(1)="files require "
  5. text1$(0)=" B"
  6. text1$(1)=" b"
  7.  
  8. ON ERROR GOTO fehler
  9. OPEN "I",#1,"Dateigröße.info"
  10. WHILE NOT EOF(1)
  11. INPUT#1,x$
  12. daus%=INSTR(x%,x$,"(DEUTSCH)")
  13. 20 dein%=INSTR(x%,x$,"DEUTSCH")
  14. IF dein%=daus%+1 THEN x%=daus%+2:GOTO 20
  15. eaus%=INSTR(y%,x$,"(ENGLISH)")
  16. 40 eein%=INSTR(y%,x$,"ENGLISH")
  17. IF eein%=eaus%+1 THEN y%=eaus%+2:GOTO 40
  18. WEND
  19. CLOSE
  20. IF dein%>daus%+1 THEN lan%=0
  21. IF eein%>eaus%+1 OR (dein%=0 AND eein%=0) THEN lan%=1
  22.  
  23. start:
  24. fileg&=0:file&=0:anz&=0:anza%=0
  25. IF lan%=0 THEN
  26. INPUT "Pfad/Dateiname: ",datn$
  27. ELSE
  28. INPUT "path/file name: ",datn$
  29. END IF
  30. OPEN"I",#1,datn$
  31. INPUT#1,x$:PRINT x$
  32. WHILE NOT EOF(1)
  33. INPUT#1,x$:PRINT x$
  34. posi%=LEN(x$)-35
  35. IF posi%>0 THEN
  36. anza%=1
  37. filen$=LEFT$(x$,posi%-1)
  38. fileg$=MID$(x$,posi%,8)
  39. fileg&=VAL(fileg$):IF fileg&<=0 THEN fileg&=0:anza%=0
  40. file&=file&+fileg&
  41. anz&=anz&+anza%
  42. PRINT filen$;TAB(posi%);
  43. PRINT USING"########";fileg&
  44. END IF
  45. WEND
  46. CLOSE
  47. CLS
  48. PRINT anz&;text0$(lan%);file&;text1$(lan%);"ytes = ";file&/(1048576&);"MB."
  49. PRINT:PRINT
  50. IF lan%=0 THEN
  51. PRINT "Drücken Sie irgendeine Taste."
  52. ELSE
  53. PRINT "Please press any key to exit."
  54. END IF
  55. 1 a$=INKEY$:IF a$="" THEN 1
  56. SYSTEM
  57. fehler:
  58. fehler%=ERR
  59. IF lan%=-1 AND fehler%=53 THEN lan%=1:RESUME start
  60. RESUME fehler2
  61. fehler2:
  62. IF lan%=0 THEN
  63.  IF fehler%<>53 THEN
  64.  PRINT "Es ist ein Fehler Nr. ";fehler%;" aufgetreten. Beende Programm.":PRINT "Bitte drücken Sie eine Taste."
  65.  ELSE
  66.  PRINT "Datei nicht gefunden."
  67.  END IF
  68. ELSE
  69.  IF fehler%<>53 THEN
  70.  PRINT "An error number ";fehler%;" occurred. Aborting.":PRINT "Please press any key."
  71.  ELSE
  72.  PRINT "File not found."
  73.  END IF
  74. END IF
  75. ende:
  76. a$=INKEY$:IF a$="" THEN SLEEP
  77. IF a$>"" THEN SYSTEM
  78. GOTO ende
  79.  
  80.  
  81.